(describe-function-1): Say "keymap", not "Lisp macro",

if this is an autoloaded keymap.

diff --git a/lisp/help.el b/lisp/help.el
index ddc67c43432fa68a91c800e2659e192675728ebc..051c56e65bacdf2cbb354346fda29ac88dae84ed 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -620,9 +620,10 @@ It can also be nil, if the definition is not associated with any file."
                 "a mocklisp function")
                ((eq (car-safe def) 'autoload)
                 (setq file-name (nth 1 def))
-                (format "%s autoloaded Lisp %s"
+                (format "%s autoloaded %s"
                         (if (commandp def) "an interactive" "an")
-                        (if (nth 4 def) "macro" "function")
+                        (if (eq (nth 4 def) 'keymap) "keymap"
+                          (if (nth 4 def) "Lisp macro" "Lisp function"))
                         ))
                (t "")))
     (when (and parens (not (equal string "")))